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MODULE MAKPTR ( LSE EEE 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
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001 ie TRANSFERRE 
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FACILITY: FIIACP Structure Level 2 

i ABSTRACT: 


This routine constructs retrieval pointer in the file header map area 
for the indicated blocks. 


i ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 


i AUTHOR: Andrew C. Goldstein, CREATION DATE: 14-Dec-1977 17:13 | 
i MODIFIED BY: 
| 
| 
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Vrwt—oO wd -—-o wun WFwnN NORE 0 ONO UN Fut 


B0103 ACG0122 Andrew C. Goldstein, 17-Jan-1980 15:54 
Get bug check codes up to dat 
80102 ACG0096 Andrew C. Goldstein, 18-Dec-1979 18:59 


Add zero count bug trap 
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80101 acGoo08 Andrew C. Goldstein, 28-Dec-1978 19:27 
Add placement control support 


1 aceogo! Andrew C. Goldstein, 10-Oct-1978 20:00 
a aes Rit revision history moved to Ph ib  SREIF B.REV 


BUIRE "SRESSFEPDER Sees 
— MAKE POINTER = : 
~~ GLOBAL (MAP_POINTER = 9), 


L CHECK POINTER = CALL : 
GLOBAL (HEADER = 8); 


MAKE POINTER 7 ke 
CHECR_POINTER : LICHE 
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ER ! build map pointer 
R POINTER; i check if pointer will fit 
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GLOBAL ROUTINE MAKE POINTER (COUNT, LBN, FILE_WEADER, PLACEMENT_CODE) : L_MAKE_POINTER = 
~~ 
FUNCTIONAL DESCRIPTION: 
This routine constructs retrieval inter in the file header map area 
for the Indicoted blocks. ~ * 
i CALLING SEQUENCE: 
MAKE POINTER (ARG1, ARG2, ARG3, ARG4) 


INPUT PARAMETERS: 
om +. = feet 
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! IMPLICIT INPUTS: | 
R9 = address to receive pointer 


i OUTPUT PARAMETERS: 
: NONE 
' IMPLICIT OUTPUTS: 
] R9 = address past pointer 
i ROUTINE VALUE: 

"yt 
0 if pointer won't fit 


i SIDE EFFECTS: 
; pointer added to header map area 
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AR present, placement data to record or 0 
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BEGIN 
EXTERNAL REGISTER 
MAP _POINTER = 9 : REF BBLOCK; ! pointer to map area 
FILE HEADER : REF BBLOCK; ! buffer containing file header 
GLOBAL REGISTER 
HEADER = 8 : REF BBLOCK; ! Local pointer to file header 
LOCAL 


PLACEMENT copy of placement data 
POINTER_SIZE; ! size needed for map petnter 


: Check the specified count; it must not be zero. 
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IF ,COUNT EQL 0 


MAKPTR 1b-5e Sep-1984 4: VAX-11 Bliss-32 V4.0-742 4 
v04-000 ~8ep-1984 99: % 98 DISKSVMSMASTER: CCFIIX. SRC IMAKPTR.B32; 439 * 23 
7 ywen N Bye. CHECK (MAPCNTZER, FATAL, ‘Attempted to generate zero length map pointer'); 
placement is specified. 
PLACEMENT = 0; 
POINTER_SIZE = 2; 
LCOUNT GEou 4 
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GIN 
PLACEMENT = ,PLACEMENT_CODE; 
i PLACEMENT NEQ 

THEN POINTER, size = .POINTER_SIZE + 1; 


' Get the address of the file header for the check routine. 
} Then determine the format of the pointer and build it. 
HEADER = .FILE_HEADER; 

IF .COUNT LEQU 256 AND .LBN LSSU 1°22 

THEN 


BEGIN 
rr NOT CHECK POINTER (.POINTER_SIZE) THEN RETURN 0; 
Ud ;PLACEMENT NEQ 


BEGIN 
(.MAP_POINTER)<0,16> = .PLACEMENT; 
re = .MAP_POINTER + 2; 


RMAT] = FM2$C_FORMAT1; 
COUNT = 1; 
GHLBN) = ,LBN<16,6>; 


WLBN] = .LBN<O,16>;° 
0! 


MAP _ RIA 
j« 
NTER + 4; 


0 
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v 283 
4 
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ER SIZE iEOsNTER. SIZE + 1; 
T LEQU 16384 


au 


NOT CHECK gly (.POINTER_SIZE) THEN RETURN 0; 
LACEMENT N 


OINTER) <0. 16> = ,PLACEMENT; 
NTER = .MAP POINTER + 2; 


FM2$V_COUNT2 = 4c COUN NT - 1; 
FM2SL~LBN2) = 


Fragsy-¢o FORMAT FM2$C_FORMAT2; 
.LBN; 
= RAPS POINTER’ + 6; 
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SSRIESLANLSSSLESRANSLESS 


NORD 2 
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> = PLACEMENT; 
POINTER + 2; 


= ROT (.COUNT-1, 16); 

mo$v_FORMAT = FM2$C_ FORMATS; 

M2$L_LBN3) = .LBN; 
.MAP_POINTER + 8: 


zzz— + 

=—442z2 
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ity BUG_CHECK (PTRCNT, FATAL, ‘ACP block count exceeds retrieval pointer size’); 
END; 
RETURN 1; 


END; ! end of routine MAKE_POINTER 


RIMINI PADD A AP IIE BB A 
m 


-TITLE MAKPTR 
-IDENT \V04-000\ 


-EXTRN BUGS_MAPCNTZER, BUGS_PTRCNT 
-PSECT S$CODES,NOWRT,2 


011¢ 00000 .ENTRY MAKE_POINTER, Save R2,R3,R4,R8 
54 0000v CF 9 90002 MOVAB CHECR_POINTER, R4 
04 AC 05 0000 TSTL | COUNT 
04 12 OOO0A BNE 
FEFF 0000C BUGW 
000* 000 .WORD <BUGS_MAPCNTZER!4> 
5 D4 or 1$: ELRL AC 
53 DO 0001 MOVL #2, POINTER_SIZE 
04 6¢ 91 0001 CMPB CCAP), #4 
1F 0 1 BLSSU -2$ 
52 10 A 09 1A MOVL § PLACEMENT_CODE, PLACEMENT 
9 13 0001 BEQL 
06 INCL POINTER_SIZE 
58 c AC OO 28: MOVL FILE HEADER, HEADER 
00000100 = &F 4 AC 01 CMPL COUNT, #256 
2F 1A BGTRU 4$ 
00400000 8F 08 A pi CMPL  LBN, #4194304 
E BGEQU 4 
DD A PUSHL POINTER SIZE 
64 1 FB Cc CALLS #1, CHECK_POINTER 
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; Routine Size: 


Boo 


00004000 + 8F 


40000000 + =8F 


FD AD 


50 


205 bytes, 


Routine Base: 


08 


08 


04 


on 
oo 


E 3 

63 90ne 

B 4 

F 4 

1 8 4 

Bt 

et FY Bo0sp 
A H 0 ot 
ti e 
FB 90066 

0 007 

0§ 18 G007 
53 90 G00rt 
a £8 Gor 
AC D it 3 
5 0 doose 
; D6 00093 
Ac bt Goes 
23 1A G00 
1 FB OOOA1 
0 E9 QOOA4 
D O0A7 
0 1 00A9 
52 BO OOOAB 
oi ¢ OOA 
10 9C 0008 
8F 88 00087 
AC 00 0008 
04 11 000C 
FEFF Q00C2 
0000* 000C4 
01 0 000C 
4 ; C 

50 D4 OCA 
04 O00CC 


SCODES + 0000 


5$: 


6$: 


118: 


4 00:44 VAX-11 Bliss-32 V4.0-742 Page 6 
4 99:35 ¢¢ DISKSVMSMASTER:CF11X.SRCIMAKPTR.B32; 1 9 2) 
BLBC~=—E—s&aRO,- 78 : 
st PLACEMENT + 1150 
MOVW PLACEMENT (MAP_POINTER) + + 1153 
INSV. #1, #14, #2, (MAP POINTER) + 1157 
$uBB3Os#, gOUNT (MAP_POINTER) + : 1158 
INSV LBN+2, #0, #6, TMAP_POINTER)+ : 1159 
MOV N, (MAP! POINTER) + + 1160 
BRB + 1146 
INCL POINTER Size : 1166 
CMPL COUNT, #16384 : 116 
BGTRU 3 
PUSHL POINTER_SIZE t 1170 
CALLS #1, CHECK_POINTER : 
BLBC ; 
IST PLACEMENT + 1171 
MOVW PLACEMENT, (MAP_POINTER)+ + 1174 
INSV , #14, #2, (MKP_POINTER) + 1178 
SUBL3. #1. COUNT + 1179 
INSV RO. #0, #14, (MAP_POINTER)+ : 
MOVL LBN, 1(MAP_POINTER) : 1180 
ADDL2 #5, MAP_POINTER + 1181 
BRB : 1167 
INCL POINTER_SIZ + 1186 
CMPL COUNT, 1073741824 + 1187 
BGTRU 9 FY 
PUSHL POINTER_SIZE + 1190 
CALLS #1, CHECK_POINTER ; 
BLBC ~—_—«RO, : 
STL PLACEMENT + 1191 
MOVW_ PLACEMENT, (MAP_POINTER)+ + 1194 
SUBL3 #1, COUNT. : 1198 
ROTL #16, RO, (MAP_POINTER)+ : 
BISB2 #192, -$(MAP_POINTER) : 1199 
MOVL _LBN, (MAP_POINTER)+ + 1200 
BRB 0$ : 1187 
BUGW : 1204 
.WORD <BUG$_PTRCNT!4> : 
MOVL #1, RO : 1208 
RET ; 
CLRL = RO > 1210 
ET ; 
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MAK 

v04-000 

: ; } 12 ! ROUTINE CHECK_POINTER (SIZE) : L_CHECK_POINTER = 

; 5 12135 1 !46 

3 $ 1214 1! 

: | 1? i FUNCTIONAL DESCRIPTION: 

: $ 1 i$ 1: This routine determines whether a map pointer of the given size 
: 121 1! will fit in the file header. 

r 1 ! 1 ! 

: BE ABBY | caning, Sequences acts 

: 235 1 § 1 | INPUT PARAMETERS: 

3 : : : : ARG1: map pointer size in words 

; 8 1226 i IMPLICIT INPUTS: 

3 1 1! R8: address of file header 

: 240 1 3 1! 

3 41 1 1 ! OUTPUT PARAMETERS: 

3 “ : ? : } NONE 

> 266 1 ; 1 § IMPLICIT OUTPUTS: 

3 45 1 1! NONE 

; ré 1 1! 

3 4 1235 1 =! ROUTINE VALUE: 

; 248 1 1 } 1 if pointer fits 

; 4&9 1 . fF if not 

; 250 1238 1! 

H 51 1239 1 ! SIDE EFFECTS: 

3 2g : re : } header map in use count updated if pointer fits 

; 254 126g ine 

; 255 1243 1 

: 8 1244 BEGIN 

s @ 1245 

3 56 124 EXTERNAL REGISTER 

3 59 124 HEADER = 8 : REF BBLOCK; ! file header address 
: See 159 

; 6¢ 1250 2 IF .HEADERCFH2$B8_MAP Nuse} + SIZE GTRU 

; 6 1251 -HEADERCF H2$B_ACOFF SET -  HEADERCFH2$B_MPOF FSET] 

5 C4 ' 26 THEN RETURN 0; 

: v4] ! 22 HEADERCFH2$8_MAP_INUSE] = .HEADERCFH2$B8_MAP_INUSE) + .SIZE; 
; be 26 RETURN 1; 

; 270 1258 1 END; ! end of routine CHECK_POINTER 


0004 00000 CHECK_POINTER: 
A AB OA movipL SBYNEABERD, RI 
ae AC CO $6008 ADDL ‘ SIZE, Ri : 


> 


3 Sizes a oer 4 0 data bytes 


: Elapsed Time: :24. 
3; Lines/CPU Min: $636 


: Lexenes/CPU-Rin: 24 
: ry Ut 154 mee 
: moet stien Complete 


— 

m9 

16-Sep-1 244: VAX-11 Bliss-32 V4.0-742 8 

ho tig 99°90:98 DISKSVMSMASTER:CF11X.SRCIMAKPTR.B32; page sf 
9A A VZBL 2(HEADER), Rg : 1251 ; 
A eae (HEADER). R : ; 
C¢ R2, R : : 
9 1 R1, R P+ ° 
A 0001 BeTR $ : ; 
a8 80 1A ADDB2 SIZE, S8(HEADER) : 1254 ; 
5 B0 1F MOVL #1, RO ; 1256 : 
50 D4 098 18: CLRL = RO : 1258 : 
; Routine Size: 38 bytes, Routine Base: SCODES + 00CD ; 
: 271 1259 1 ; 
3 Le: 1260 1 END PF 
: a7 1261 0 ELUDOM é 
: PSECT SUMMARY : 
: Name Bytes Attributes : 
; SCODES 2463 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; 
; Library Statistics 3 
2 Re eee a ee eee Symbols ------- Pages Processing ; 
3 File Total Loaded Percent Mapped Time : 
; _$255$DUA28:(SYSLIBILIB.L32;1 18619 30 0 1000 00:01.9 3 
; COMMAND QUALIFIERS 2 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=L1S$:MAKPTR/OBJ=OBJ$:MAKPTR MSRC$:MAKPTR/UPDATE=(ENHS: MAKPTR) ; 
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